home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / A1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  806 b   |  20 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,30:PRINT "A D D I T I O N  T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This section of M A T H  P A K, will add up to 60 "
  8. 80  LOCATE 6,2:PRINT "numbers to each other."
  9. 90  LOCATE 8,2:PRINT "The program will allow you to input UP TO 60 seperate values."
  10. 100  LOCATE 9,2:PRINT "To the total sum,is displayed throughout the loop."
  11. 110  LOCATE 11,2:PRINT " At any time, you can return to main menu, by entering a '0' for a value..."
  12. 120  LOCATE 13,2:PRINT " EXAMPLE:"
  13. 130  LOCATE 15,20:PRINT " 3 + 4 + 5 + 6 + 7 + 8  = ?"
  14. 140  LOCATE 18,2:PRINT "First,enter the '3',press <RETURN> and then enter '4',press <RETURN>..."
  15. 150  LOCATE 19,2:PRINT "Then, after the LAST value is inputed, the total sum is displayed."
  16. 160  LOCATE 22,2:PRINT "Press the S P A C E  B A R to return to disk tutorial...
  17. 170  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  18. 180  GOTO 170
  19. 190  END
  20.